home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Xenosoft 2
/
Xenosoft 2 (Game collection)(1994).iso
/
bioforge
/
script
/
tower.scp
< prev
next >
Wrap
Text File
|
1994-12-08
|
6KB
|
271 lines
// ***TOWER LEVEL***
{ TOWER_LOAD
^à╝ = $é╛
// IF LEX IS WEARING THE REFLECT SUIT MAKE SURE THE BATTERY CONTINUES
// TO BE DRAINED. -BKA-
@Ç¢ PLAYER
I ( @Ç⌐ (LEXMIR) ) THEN
{
^ä╝ = @Çì REFLECTBATTDRAIN
}
// RESTART BIOREPAIR IF IT IS STILL ACTIVE
I ^ïâ = 1 THEN
^Ä₧ = @Çì BIOREPAIR
// RESET TONFA GUN -BKA
^ïÆ = 0
^ïò = 0
I ( ^ä₧ = $é╝ ) THEN
^ä₧ = $é╗ ;
@Çì LEVEL1TREMORS
@Çì ESCHERS_PLEES_FOR_HELP
@Çì STRAIN
}
{ ELT_LOAD
ƒ TWR5 OFF
ƒ TWR6 OFF
ƒ TWR7 OFF
^êä = @Çë ()
(^êä 0)
@Ç¥ READY_TOWERBOTS // IN AI_TOWER.SCR
ì 0
I ^üÑ = 1 AND ^üú = 1 THEN
{
I ^üª THEN
é
E
{
i LEX ROLLIVE
^üª = 1
}
}
// MASTABA'S SPEECH THAT COMES ON AFTER YOU KILL BOTH DROPSHIP'S
// FORGOT TO ADD FLAG THAT ALLOWS HIM TO SAY IT ONLY ONCE - JT
I ^ü⌐ = $Ç╝ THEN é
I ^üƒ = $Ç╗ THEN
{
^üá = $Ç╗ THEN
{
//@@@ PLEASE TRANSLATE
^ü⌐ = $Ç╝
@Ç║ (`éè $Ç╜ "This is your doctor speaking.")
@Ç║ (`éï $Ç╜ "I know you are confused and disoriented,~but we are not your enemy.")
@Ç║ (`éî $Ç╜ "You are one of us, a Mondite,~and we are in extreme danger.")
@Ç║ (`éì $Ç╜ "Doctor Escher has betrayed us all.")
@Ç║ (`éÄ $Ç╜ "She has brought a monster into our base.")
@Ç║ (`éÅ $Ç╜ "If we are to survive I need your help.")
}
}
}
{ TWR_LOAD
I ^åò = 0 THEN
{
^åò = 1
^êä = @Çê ()
I ^èº = 0 THEN O $ÇÅ
N (@Çà (1,8))
{
U 1
(`Çö , `Ç╗ )
X ÇÇ
U 2
U 3
(`Çö , `Ç╝ )
X ÇÇ
U 4
(`Çö , `Ç╜ )
X ÇÇ
U 5
U 6
(`Çö , `Ç╛ )
}
}
I ( @Ç¢ ( ROLAND ) ) THEN
{
Y TWR1 TWR2 LASER HIT
I @Çô (PLEAD) = 0 THEN
è OFF
E
M PLEAD CONTINUE
ï PLAYER
Z CURFIG ON
u CURFIG ON
I ^üº THEN
G BEGHERE
E
G DEST
}
// AT THIS TIME YOU MUST BE ASSURED THAT YOU'VE HEARD ABOUT THE
// LANDER FROM THE GUARD ROOM RADIO, SO THIS 'IF' IS HERE TO HELP
// OUT DURING TESTING.
I ( ^ü¥ < 1 ) THEN ^ü¥ = 1
}
// *** TOWER CAMERAS ***
{ TWR1_LOAD
I ( @Ç¢ ROLAND ) THEN
┬
I ( ^ü¥ = 2 ) THEN
{
// WHEN YOU FIRST STEP INTO THIS AREA THE SHIPS WILL START
// FLYING BY. -KLD
^ü¥ = 3
@Çì SHIPORCHESTRA
}
// ONLY IF THE GUN MANAGEMENT ISN'T ALREADY HAPPENING!
@Çì MANAGEGUN
I ( ^ü¥ >= 3 && ^üƒ = 1 ) THEN
{
// SHOOT THE PLAYER!
}
}
{ TWR2_LOAD
I ( @Ç¢ ROLAND ) THEN
┬
}
{ SAYGUNISOFF
@Ç║ `é¥ $Ç╜ "Tower to Control Room:~The main gun is off line."
W 2 SECONDS
@Ç║ `é¥ $Ç╜ "Tower to Control Room:~The main gun is off line."
}
{ TWR4_LOAD
// NOW YOU SHOULD HEAR THE DROPSHIP RADIO IN THAT ITS COMING
// IN FOR A LANDING, AS LONG AS YOU'VE NEVER HEARD IT BEFORE.
I ( ^ü¥ = 1 ) THEN
{
^ü¥ = 2
@Çì SAYGUNISOFF
}
ƒ TWR5 ON
ƒ TWR6 ON
ƒ TWR7 ON
}
// ***TOWER LEVEL USABLE TRIGGERS***
{ TWR_LV1_USE
I ^å¡ = 1 THEN é
^Ç┤ ++
M PUSH_BUTTON CONTINUE
W 15
@Ç¥ ELEVATOR_MONITOR
^Ç┤ --
}
// OPENS THE ELEVATOR DOORS TO THE TOWER LEVEL...
{ TDR_BUT_USE
// DON'T LET THEM LEAVE UNLESS THE FULL LANDER SEQUENCE HAS RUN!
I ( ^ü¥ >= 3 && ^ü¥ < 5 ) THEN
é
M PUSH_BUTTON CONTINUE
W 15
I ^å¼ THEN
{
// MAYBE RUN A DIFFERENT SOUND EFFECT HERE
@Çå ( `ä¡ 100)
é
}
E
@Çå ( `Çì , 100, -2048 )
I ^ä₧ = $é╗ THEN
{
// OPEN THE ELEVATOR DOORS
@Çì ELEVATOR_DOOR_OPEN
^ä₧ = $é║
@Çì TOWERAUTOELEVATORCLOSE
}
E
{
@Çì ELEVATOR_DOOR_CLOSE
^ä₧ = $é╗
}
}
{ MOVESCREEN
P ~ÇÇ
I ( ^ü¬ < 0 ) THEN
{
:MOVERIGHT
~ÇÇ = ^ü¬
~ÇÇ *= ~ÇÇ
~ÇÇ += 2
W ~ÇÇ
^ü¬ += 1
ì MOVE ^ü¬ 0 ^ü¬ 0
I ( ^ü¬ < 4 ) THEN J #Çè
}
E
{
:MOVELEFT
~ÇÇ = ^ü¬
~ÇÇ *= ~ÇÇ
~ÇÇ += 2
W ~ÇÇ
^ü¬ -= 1
ì MOVE ^ü¬ 0 ^ü¬ 0
I ( ^ü¬ > -4 ) THEN J #Çï
}
}
// CREAKING OF TOWER
{ STRAIN
P ~ÇÇ
P ~Çü
P ~Çé
ó TWR1 TWR2 TWR3 TWR4 TWR5
:LOOP
~ÇÇ = @Çà (5,20)
~Çü = @Çà (100,255)
~Çé = @Çà (0,5) * 1024
W ~ÇÇ SECONDS
@Çå (`åö ~Çü ~Çé )
// REMOVED BY POPULAR DEMAND. -KLD
// @PROCESS MOVESCREEN
â
J #Çì
}
//$ 26 - version number